home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / common.cst / 00048_musikButton.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  1.1 KB  |  42 lines
  1. property meNum, myName, meSprite, meMember, meHmember, xSprites, initLocV
  2. global monkey
  3.  
  4.  
  5. on beginSprite me
  6.   meNum = me.spriteNum - 144
  7.   meSprite = sprite(me.spriteNum)
  8.   meMember = meSprite.member
  9.   myName = meSprite.member.name
  10.   meHmember = member(myName&"h", 2)
  11.   xSprites = [143, 144] --HARDWIREWARNING!!!!!
  12.   initLocV = sprite(xSprites[1]).locV
  13. end
  14.  
  15. on mouseEnter me
  16.   meSprite.member = meHmember
  17. --  updateStage
  18. end
  19.  
  20. on mouseLeave me
  21.   meSprite.member = meMember
  22. --  updateStage
  23. end
  24.  
  25. on mouseUp me
  26.   monkey.callFromDownButton(meNum, meSprite) -- skicka kommando till ap-scriptet
  27. end
  28.  
  29. on GoScript me --g├Ñ, kommandot kommer fr├Ñn ap-scriptet
  30.   monkey.reCoverMe()
  31.   monkey.meSprite.butNum = 0
  32.   if sprite(xSprites[1]).locV = initLocV then
  33.     sprite(xSprites[1]).loc = sprite(xSprites[1]).loc + point(0, -100)
  34.     sprite(xSprites[2]).loc = sprite(xSprites[2]).loc + point(0, -100)
  35.     sprite(xSprites[2]).setUp()
  36.   else
  37.     sprite(xSprites[1]).loc = sprite(xSprites[1]).loc + point(0, 100)
  38.     sprite(xSprites[2]).loc = sprite(xSprites[2]).loc + point(0, 100)
  39.   end if
  40. end
  41.  
  42.